home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / tcl / tclmotif.1 / tclmotif / tm.1.2 / tests / shell < prev    next >
Encoding:
Text File  |  1993-11-15  |  310 b   |  24 lines
  1.  
  2. if {[string compare test [info procs test]] == 1} then \
  3.   {source defs}
  4.  
  5. # set VERBOSE 1
  6. # set INTERACTIVE 1
  7.  
  8.  
  9. #############
  10. # starts here
  11. #############
  12.  
  13. xtAppInitialize -class List
  14. . setValues -allowShellResize true
  15.  
  16.  
  17. #############
  18. # Finish up #
  19. #############
  20. if { ! $INTERACTIVE} {
  21. } else {
  22.   . mainLoop
  23. }
  24.